home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_B.d64 / hier ist ende! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  528b  |  16 lines
  1. 10 v=15 :poke53280,.:poke53281,.:printchr$(147):poke53272,23:print""
  2. 20 print"                     [176][184][184][184][184][184][184][184][184][184][184][174]"
  3. 40 print"                     [181]          [182] "
  4. 45 print"                     [173][185][185][185][185][185][185][185][185][185][185][189]       "
  5. 50 fori=0to2:poke646,int(rnd(0)*15)+1  :
  6. 60 onigosub180,240,300,360
  7. 90 forz=1tov:next:print"";:next
  8. 100 fori=10to3 step-1:
  9. 130 onigosub180,240,300,360:
  10. 140 forz=4tovstep-2    :next:next:goto50
  11. 180 poke1569,69:poke1570,78:poke1571,68:poke1572,69:return
  12. 240 poke1569,45:poke1570,45 :poke1571,45:poke1572,45:return
  13. 250 print"[144]"
  14. 300 poke1569,197:poke1570,206:poke1571,196:poke1572,197:return
  15. 360 poke1569,45 :poke1570,45 :poke1571,45:poke1572,45:return
  16.